Aminet 12/Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso/Aminet/biz/dbase/GCBVideo311.lha/GCBVideo/Install_GCBVideo

Text File | 1996-01-31 | 18KB | 807 lines

;-------------------------------------------------------------------
; $VER: Install-GCB-Produkte V2.00 Dienstag 24.01.95
;       Gabriele Christine Bauer
;       St.-Augustinus-Str 74
;       81825 München
;       Deutschland
;-------------------------------------------------------------------
; Globalvariablen
;-------------------------------------------------------------------
(set produkt (cat "GCBVideo"))
(set version (cat "V3.11"))
(delopts AskUser)
(set @language "deutsch")
(set false 0)
(set true 1)
;-------------------------------------------------------------------
; Begrüßung
;-------------------------------------------------------------------
(set gruss (cat "Willkommen bei der Installation von "produkt" "version))
(welcome gruss)
;-------------------------------------------------------------------
; Copyright
;-------------------------------------------------------------------
(set copyright
  (cat "\n\n"
       produkt"-Installationsskript."
       "\n"
         "Diese Installationsroutine installiert "produkt" auf Ihrem Amiga."
         "\n(Ab Betriebssystem Version 2.04 lauffähig)"
         "\n"
         "Lesen Sie bitte die Dokumentation für "
       "weitere Informationen über die Weitergeabe. "
       "\n\n"
       produkt" "version" © 1995 Gabriele Christine Bauer "
       "\n"
       "Alle Rechte vorbehalten."
  )
)
(message copyright)
(complete 10)
;-------------------------------------------------------------------
; Abfrage auf vorhandene Installation
;-------------------------------------------------------------------
(set gcbvorhanden false)
(set produktvorhanden false)
(if (= (exists "S:GCBProdukt.exists") true)
  (
    (set gcbvorhanden true)
    (if (= (exists (cat "GCBProdukte:"produkt)) true)
      (
    (set produktvorhanden true)
      )
    )
    (if ( and (= produktvorhanden false) (= (exists (cat "SYS:WBStartup/"produkt)) true))
      (
    (set produktvorhanden true)
      )
    )
  )
)
(complete 20)
;-------------------------------------------------------------------
; Abfrage auf Installationsart
;-------------------------------------------------------------------
(set frage
  (cat "Bitte wählen Sie eine der unten stehenden Möglichkeiten aus:"
  )
)
(if (= produktvorhanden false)
  (
    (set inst
      (cat "Installation von "produkt" "version
      )
    )
  )
)
(if (= produktvorhanden true)
  (
    (set inst
      (cat "Update auf "produkt" "version
      )
    )
  )
)
(set remo
  (cat produkt" von Festplatte entfernen"
  )
)
(set vers
  (cat "Systeminformationen abrufen"
  )
)
(set wahl
  (askchoice
    (prompt frage)
    (choices inst remo vers)
    (help @askchoise-help)
  )
)
(complete 30)
;-------------------------------------------------------------------
; Abfrage auf Remove
;-------------------------------------------------------------------
(set abbruch
  (cat "\n\n"
       "Sie können "produkt" nicht von der Festplatte entfernen, "
       "da Sie es noch nicht installiert haben."
  )
)
(if (and (= produktvorhanden false) (= wahl 1))
  (
    (message abbruch)
    (exit (quiet))
  )
)
(complete 40)
;-------------------------------------------------------------------
; Sichern der pers. Daten
;-------------------------------------------------------------------
(if (and (= wahl 0) (= produktvorhanden true))
  (
    (run ("makedir >nil: RAM:GCBDAT"))
    (set text
      (cat "\n\nDa Sie schon eine Version von "produkt" installiert haben, "
       "werden zuerst Ihre persönlichen Daten zwischengespeichert."
      )
    )
    (message text)
    (set text
      (cat "Sichere persönliche Daten nach RAM:GCBDAT"
      )
    )
    (if (= produkt (cat "GCBPlaner"))
      (
    (if (= (exists "GCBProdukte:GCBPlaner.key") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBPlaner.key")
          (dest "RAM:GCBDAT/")
        )
      )
    )
    (if (= (exists "GCBProdukte:GCBPlaner.Dat") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBPlaner.Dat")
          (dest "RAM:GCBDAT/")
        )
      )
    )
    (if (= (exists "GCBProdukte:GCBPlaner.Konfig") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBPlaner.Konfig")
          (dest "RAM:GCBDAT/")
        )
      )
    )
    (if (= (exists "GCBProdukte:GCBPlaner.History") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBPlaner.History")
          (dest "RAM:GCBDAT/")
        )
      )
    )
    (if (= (exists "SYS:WBStartup/GCBPlaner.info") true)
      (
        (copyfiles
          (prompt text)
          (source "SYS:WBStartup/GCBPlaner.info")
          (dest "RAM:GCBDAT/")
        )
      )
    )
      )
    )
    (if (= produkt (cat "GCBVideo"))
      (
    (if (= (exists "GCBProdukte:GCBVideo.Key") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBVideo.Key")
          (dest "RAM:GCBDAT/")
        )
      )
    )
    (if (= (exists "GCBProdukte:GCBVideo.Konfig") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBVideo.Konfig")
          (dest "RAM:GCBDAT/")
        )
      )
    )
    (if (= (exists "GCBProdukte:GCBVideo.Archiv") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBVideo.Archiv")
          (dest "RAM:GCBDAT/")
        )
      )
    )
    (if (= (exists "GCBProdukte:GCBVideo.ArchivCam") TRUE)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBVideo.ArchivCam")
          (dest "RAM:GCBDAT/")
        )
      )
    )
    (if (= (exists "GCBProdukte:GCBVideo.Aufnahmen") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBVideo.Aufnahmen")
          (dest "RAM:GCBDAT/")
        )
      )
    )
    (if (= (exists "GCBProdukte:GCBVideo.Frei") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBVideo.Frei")
          (dest "RAM:GCBDAT/")
        )
      )
    )
    (if (= (exists "GCBProdukte:GCBVideo.FreiCam") TRUE)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBVideo.FreiCam")
          (dest "RAM:GCBDAT/")
        )
      )
    )
    (if (= (exists "GCBProdukte:GCBVideo.Kategorien") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBVideo.Kategorien")
          (dest "RAM:GCBDAT/")
        )
      )
    )
    (if (= (exists "GCBProdukte:GCBVideo.Genres") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBVideo.Genres")
          (dest "RAM:GCBDAT/")
        )
      )
    )
    (if (= (exists "GCBProdukte:GCBVideo.Programme") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBVideo.Programme")
          (dest "RAM:GCBDAT/")
        )
      )
    )
    (if (= (exists "GCBProdukte:GCBVideo.info") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBVideo.info")
          (dest "RAM:GCBDAT/")
        )
      )
    )
      )
    )
    (if (= produkt (cat "GCBAdresse"))
      (
    (if (= (exists "GCBProdukte:GCBAdresse.Key") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBAdresse.Key")
          (dest "RAM:GCBDAT/")
        )
      )
    )
    (if (= (exists "GCBProdukte:GCBAdresse.Orte") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBAdresse.Orte")
          (dest "RAM:GCBDAT/")
        )
      )
    )
    (if (= (exists "GCBProdukte:GCBAdresse.Bank") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBAdresse.Bank")
          (dest "RAM:GCBDAT/")
        )
      )
    )
    (if (= (exists "GCBProdukte:GCBAdresse.Konfig") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBAdresse.Konfig")
          (dest "RAM:GCBDAT/")
        )
      )
    )
    (if (= (exists "GCBProdukte:GCBAdresse.Adressen") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBAdresse.Adressen")
          (dest "RAM:GCBDAT/")
        )
      )
    )
    (if (= (exists "GCBProdukte:GCBAdresse.GrpSchalt") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBAdresse.GrpSchalt")
          (dest "RAM:GCBDAT/")
        )
      )
    )
    (if (= (exists "GCBProdukte:GCBAdresse.Gruppen") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBAdresse.Gruppen")
          (dest "RAM:GCBDAT/")
        )
      )
    )
    (if (= (exists "GCBProdukte:GCBAdresse.info") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBAdresse.info")
          (dest "RAM:GCBDAT/")
        )
      )
    )
      )
    )
    (if (= produkt (cat "GCBNotiz"))
      (
    (if (= (exists "GCBProdukte:GCBNotiz.Key") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBNotiz.Key")
          (dest "RAM:GCBDAT/")
        )
      )
    )
    (if (= (exists "GCBProdukte:GCBNotiz.Konfig") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBNotiz.Konfig")
          (dest "RAM:GCBDAT/")
        )
      )
    )
    (if (= (exists "GCBProdukte:GCBNotiz.Notizen") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBNotiz.Notizen")
          (dest "RAM:GCBDAT/")
        )
      )
    )
    (if (= (exists "GCBProdukte:GCBNotiz.info") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBNotiz.info")
          (dest "RAM:GCBDAT/")
        )
      )
    )
      )
    )
    (if (= produkt (cat "GCBDruck"))
      (
    (if (= (exists "GCBProdukte:GCBDruck.Key") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBDruck.Key")
          (dest "RAM:GCBDAT/")
        )
      )
    )
    (if (= (exists "GCBProdukte:GCBDruck.Konfig") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBDruck.Konfig")
          (dest "RAM:GCBDAT/")
        )
      )
    )
    (if (= (exists "GCBProdukte:GCBDruck.info") true)
      (
        (copyfiles
          (prompt text)
          (source "GCBProdukte:GCBDruck.info")
          (dest "RAM:GCBDAT/")
        )
      )
    )
      )
    )
  )
)
(complete 50)
;-------------------------------------------------------------------
; Entferne bisherige Installation bei (wahl < 2)
;-------------------------------------------------------------------
(if (and (< wahl 2) (= produktvorhanden true))
  (
    (set text
      (cat "\n\nAuf Ihrer Festplatte wird nun "produkt" entfernt"
      )
    )
    (message text)
    (run
      (cat "delete >nil: SYS:WBStartUp/"produkt"#? all"
      )
    )
    (run
      (cat "delete >nil: GCBProdukte:"produkt"#? all"
      )
    )
    (set produktvorhanden false)
  )
)
(complete 70)
;-------------------------------------------------------------------
; Entferne Assign & s:gcbprodukt.exists
;-------------------------------------------------------------------
(set sonstgcbprodukt false)
(if (and (< wahl 2) (= gcbvorhanden true))
  (
    (if (= (exists "SYS:WBStartup/GCBPlaner") true)
      (
    (set sonstgcbprodukt true)
      )
    )
    (if (= (exists "GCBProdukte:GCBVideo") true)
      (
    (set sonstgcbprodukt true)
      )
    )
    (if (= (exists "GCBProdukte:GCBAdresse") true)
      (
    (set sonstgcbprodukt true)
      )
    )
    (if (= (exists "GCBProdukte:GCBNotiz") true)
      (
    (set sonstgcbprodukt true)
      )
    )
    (if (= (exists "GCBProdukte:GCBDruck") true)
      (
    (set sonstgcbprodukt true)
      )
    )
    (if (= sonstgcbprodukt false)
      (
    (run ("execute gcbwo"))
    (set srcdir (getenv "GCBTemp"))
    (delete "ENV:GCBTemp")
    (set text
      (cat "Da Sie keine weiteren GCB-Produkte installiert haben, "
           "wird die Schublade "srcdir" auf Ihrer Festplatte gelöscht und "
           "der Assign in der Datei USER-Startup entfernt."
      )
    )
    (startup "GCB-Produkte"
      (prompt text)
      (help @startup-help)
    )
    (run "assign GCBProdukte: remove")
    (run
      (cat "delete >nil: \""srcdir"\" all"
      )
    )
    (delete "S:GCBProdukt.exists")
    (set gcbvorhanden false)
      )
    )
  )
)
(if (= wahl 1)
  (
    (exit (quiet))
  )
)
(complete 80)
;-------------------------------------------------------------------
; Installieren neue Version (wahl = 0)
;-------------------------------------------------------------------
(if (= wahl 0)
  (
    (if (= (exists (cat "WBStartUp/"produkt)) true)
      (
    (set text
      (cat "\n\nKopiere das Startprogramm von "produkt" in die Schublade "
           "SYS:WBStartUp. Beim nächsten Rechnerstart wird das Startprogramm "
           " aktiv."
      )
    )
    (message text)
    (copyfiles
      (prompt "Installiere Startprogramm")
      (source "WBStartUp/")
      (pattern "#?")
      (dest "SYS:WBStartUp")
    )
      )
    )
    (if (= gcbvorhanden false)
      (
    (set GCBWahl
      (askdir
        (prompt
          (cat "Wohin soll "produkt" installiert werden ?\nEin Verzeichnis"
           " GCBProdukte wird erzeugt."
          )
        )
        (help @askdir-help)
        (default "SYS:")
      )
    )
    (set GCBDir (tackon GCBWahl "GCBProdukte"))
    (makedir GCBDir)
    (run (cat "assign GCBProdukte: \""GCBDir"\""))
    (set GCBORGXX GCBDir)
    (set GCBDir "GCBProdukte:")
      )
    )
    (if (= gcbvorhanden true)
      (
    (set GCBDir "GCBProdukte:")
      )
    )
    (set text
      (cat "\nKopiere die Oberfläche von "produkt" und die Dokumentation"
       " in das Verzeichnis "GCBDir
       "\n\n"
       "\nDies ist eine nicht registrierte Public-Domain-Version. Mit dieser "
       "Version sind nur 5 Einträge möglich."
      )
    )
    (if (= (exists (cat "GCBProdukte/"produkt".key")) true)
      (
    (set text
      (cat "\nKopiere die Oberfläche von "produkt" und die Dokumentation"
           " in das Verzeichnis "GCBDir
           "\n\n"
           "\nDies ist eine registrierte Shareware-Verion. Nochmals "
           "vielen Dank für die Unterstützung des Shareware-Konzepts"
      )
    )
    (run
      (cat "delete >nil: RAM:GCBDAT/"produkt".key")
    )
      )
    )
    (if (= (exists (cat "RAM:GCBDAT/"produkt".key")) true)
      (
    (set text
      (cat "\nKopiere die Oberfläche von "produkt" und die Dokumentation"
           " in das Verzeichnis "GCBDir
           "\n\n"
           "\nDies ist eine registrierte Shareware-Verion. Nochmals "
           "vielen Dank für die Unterstützung des Shareware-Konzepts"
      )
    )
      )
    )
    (message text)
    (copyfiles
      (prompt (cat "Installiere "produkt))
      (source "GCBProdukte/")
      (pattern "#?")
      (dest GCBDir)
    )
    (set frage
      (cat "Bitte wählen Sie einen geeigneten Monitor-Treiber aus:"
      )
    )
    (set tpal
      (cat "PAL"
      )
    )
    (set tmulti
      (cat "MultiScan-Monitor"
      )
    )
    (set monitor
      (askchoice
    (prompt frage)
    (choices tpal tmulti)
    (help @askchoise-help)
      )
    )
    (if (= produkt "GCBPlaner")
      (set gespfad
    (cat GCBDIR Produkt".bearb"
    )
      )
    )
    (if (NOT (= produkt "GCBPlaner"))
      (set gespfad
    (cat GCBDIR Produkt
    )
      )
    )
    (run
      (cat "delete >nil: "gespfad)
    )
    (if (= monitor 0)
      (
    (run
      (cat "rename >nil: "gespfad".Pal "gespfad)
    )
      )
    )
    (if (= monitor 1)
      (
    (run
      (cat "rename >nil: "gespfad".MultiScan "gespfad)
    )
      )
    )
    (if (= (exists "libs/CanDo.library") true)
      (
    (copylib
        (prompt "Installiere CanDo.library")
        (help @copylib-help)
        (confirm)
        (source "libs/CanDo.library")
        (dest "Libs:")
    )
      )
    )
    (if (= (exists "libs/CanDoGfx.library") true)
      (
    (copylib
        (prompt "Installiere CanDoGfx.library")
        (help @copylib-help)
        (confirm)
        (source "libs/CanDoGfx.library")
        (dest "Libs:")
    )
      )
    )
    (if (= (exists "libs/INOVAMusic.library") true)
      (
    (copylib
        (prompt "Installiere INOVAMusic.library")
        (help @copylib-help)
        (confirm)
        (source "libs/INOVAMusic.library")
        (dest "Libs:")
    )
      )
    )
    (if (= (exists "libs/lowlevel.library") true)
      (
    (copylib
        (prompt "Installiere lowlevel.library")
        (help @copylib-help)
        (confirm)
        (source "libs/lowlevel.library")
        (dest "Libs:")
    )
      )
    )
    (if (= (exists "Fonts/GCBPlaner.font") true)
      (
    (copyfiles
      (prompt "Installiere Fonts")
      (source "Fonts/")
      (pattern "#?")
      (dest "Fonts:")
    )
      )
    )
    (if (= (exists "s/GCBProdukt.exists") true)
      (
    (copyfiles
      (prompt "Installiere GCB-Marker")
      (source "S/")
      (pattern "#?")
      (dest "S:")
    )
      )
    )
    (if (= gcbvorhanden false)
      (
    (copyfiles
      (prompt "Installiere Schubladen-Icon")
      (source "GCBProdukte.info")
      (dest GCBWahl)
    )
      )
    )
    (if (= gcbvorhanden false)
      (
    (set user_script
      (cat "  Assign GCBProdukte: \"" GCBORGXX "\""
      )
    )
    (working omp "Updating S:User-Startup.")
    (startup "GCB-Produkte"
      (prompt
          "Diese Instruktionen müssen an die Datei \"S:User-Startup\" hinzugefügt"
            "werden."
            "Somit ist Ihr System für den Einsatz von "produkt" konfiguriert.\n\n"
            user_script
        )
        (help @startup-help)
        (command user_script)
    )
      )
    )
  )
)
(complete 90)
;-------------------------------------------------------------------
; Kopieren Zwischendateien aus RAM: (pattern produkt & wahl = 0)
;-------------------------------------------------------------------
(if (and (= wahl 0) (= (exists "RAM:GCBDAT/GCBPlaner.info") 1))
  (
    (copyfiles
      (prompt "Kopiere pers. Datenfiles in neue Installation")
      (source "RAM:GCBDAT/GCBPlaner.info")
      (dest "SYS:WBStartup/")
    )
    (run "delete >nil: ram:gcbdat/GCBPlaner.info")
  )
)
(if (and (= wahl 0) (= (exists "RAM:GCBDAT/") 2))
  (
    (copyfiles
      (prompt "Kopiere pers. Datenfiles in neue Installation")
      (source "RAM:GCBDAT/")
      (pattern (cat produkt"#?"))
      (dest GCBDir)
    )
    (run "delete >nil: ram:gcbdat all")
  )
)
(complete 100)
;-------------------------------------------------------------------
; Auskunft über System (wahl = 2)
;-------------------------------------------------------------------
(if (= wahl 2)
   (
     (run "Version >ENV:GCBInfo")
     (set systeminfo
       (cat "Information über Ihr System:\n\n"
        (getenv "GCBInfo")
        "\n"produkt" "version
       )
     )
     (delete "ENV:GCBInfo")
     (message systeminfo)
     (exit (quiet))
   )
)
(complete 100)
;-------------------------------------------------------------------
; Endlich am Ende
;-------------------------------------------------------------------
(set @default-dest GCBDir)
(set text
  (cat "Die Installation von "produkt" "version" ist nun abgeschlossen."
       "\n\nBitte lesen Sie die Dokumentation, zu diesem Produkt, die Sie "
       "in "GCBDir" finden können, bzw. mir der Help-Taste aus dem Programm heraus"
       " aufrufen können.\n\nViel Spaß mit Ihrer neuen Software"
  )
)
(exit text)